`auc` <-
function(cl,dose,...)dose/cl
